home *** CD-ROM | disk | FTP | other *** search
/ Amiga Plus Extra 1996 #2 / Amiga Plus CD - 1996 - No. 2 Extra.iso / clarissa1_1-demo / macros / importadpro.clssa < prev    next >
Text File  |  1995-01-20  |  3KB  |  123 lines
  1. /***********************************************************************
  2.  GADGET: "'Import ADPro'" "4" AUTO TYP: "?"
  3.  
  4.  $DAT >>ImportADPro.clssa<<   18.07.1993 - (C) ProDAD Holger Burkarth
  5.                               20.01.1995 - (C) ProDAD Michael Christoph
  6. ************************************************************************/
  7.  
  8. Options Results
  9.  
  10.   FailAt 99
  11.   AltFail=RESULT
  12.  
  13.   errvari=0
  14.  
  15.   DO FOREVER
  16.     Address clariSSA
  17.     SetScreenGrabber REQ TRIGGER 5
  18.  
  19.     Address ADPro
  20.     ADPRO_UNDISPLAY
  21.  
  22.     Address clariSSA
  23.  
  24.     MSRequester "TITLE  '*** Import ADPro ***'",
  25.                 "PTEXT 'Einzelbilder bearbeiten'",
  26.                       "'Direkte Bearbeitung'"
  27.     IF RC~=0 THEN LEAVE
  28.     IF RESULT=1 THEN DO
  29.       GetDirectory "REQ TITLE '*** Einzelbilder laden ***' FULL CUT FILES"
  30.       Dir=RESULT
  31.       IF RC~=0 | Dir="0" THEN LEAVE
  32.       PARSE VAR Dir x Dir
  33.  
  34.       BOOLRequest "'*** Import ADPro ***''''Einstellungen in ADPro ändern?'"
  35.       IF RC~=0 THEN LEAVE
  36.       IF RESULT="YES" THEN DO
  37.         PARSE VAR Dir 'FILE "' name '"' Dir
  38.         Address ADPro
  39.         LFORMAT "UNIVERSAL"
  40.         ADPRO_TO_FRONT
  41.         LOAD "'"name"'"
  42.         LEAVE
  43.       END
  44.  
  45.       Address ADPro
  46.       RENDER_TYPE
  47.       RenderType=ADPRO_RESULT
  48.       SCREEN_TYPE
  49.       ScreenType=ADPRO_RESULT
  50.  
  51.       Address clariSSA
  52.  
  53.       spez=1
  54.       INTRequest "'Geben Sie die Anzahl''der zu erzeugenden''Bilder ein.' 1"
  55.       spez=RESULT
  56.       IF rc~=0 | spez<2 THEN LEAVE
  57.  
  58.  
  59.       PARSE VAR Dir x Dir
  60.       l=0
  61.       DO UNTIL Dir="" | l > spez
  62.         PARSE VAR Dir 'FILE "' name '"' Dir
  63.  
  64.         Address ADPro
  65.         LOAD "'"name"'"
  66.         SCREEN_TYPE ScreenType
  67.         RENDER_TYPE RenderType
  68.         EXECUTE
  69.         ADPRO_DISPLAY
  70.  
  71.         IF RC = 0 THEN DO
  72.           ADDRESS clariSSA
  73.           SetScreenGrabber RECORD
  74.         END
  75.         ELSE errvari=1
  76.  
  77.         ADDRESS clariSSA
  78.         IF errvari~=0 THEN LEAVE
  79.         ADDRESS ADPro
  80.         ADPRO_UNDISPLAY
  81.         l=l+1
  82.       END
  83.     END
  84.     ELSE IF RESULT=2 THEN DO
  85.       DO FOREVER
  86.         Address clariSSA
  87.         MSRequester "TITLE  '*** Import ADPro ***'",
  88.                     "PTEXT 'A U F N A H M E'",
  89.                           "'Abbruch (Macro beenden)'"
  90.         IF RC~=0 | RESULT=2 THEN LEAVE
  91.  
  92.         Address ADPro
  93.         LOAD
  94.         EXECUTE
  95.         ADPRO_DISPLAY
  96.  
  97.         IF RC=0 THEN DO
  98.           Address clariSSA
  99.           SetScreenGrabber RECORD
  100.         END
  101.         ELSE errvari=1;
  102.         Address clariSSA
  103.         IF errvari~=0 THEN LEAVE
  104.         Address ADPro
  105.         ADPRO_UNDISPLAY
  106.       END
  107.     END
  108.  
  109.     Address clariSSA
  110.     IF errvari~=0 THEN
  111.       Message "'<Import ADPro>' 'Bearbeitungsfehler'"
  112.  
  113.  
  114.     SetBasicScreen FRONT
  115.     SelectAnim Master
  116.     SetArea Full
  117.  
  118.     LEAVE
  119.   END
  120.  
  121.   FailAt AltFail
  122. exit
  123.